PC Plus SuperCD (UK) 1997 May/PC Plus Super CD Issue 127 (May 1997).iso/delphi2/delphite.exe/data.z/SIMPREP.DFM/SIMPREP.txt

Text File | 1996-08-12 | 5.8 KB | 278 lines

object SimpForm: TSimpForm
  Left = 456
  Top = 108
  Width = 779
  Height = 239
  HorzScrollBar.Range = 1200
  VertScrollBar.Range = 2000
  AutoScroll = False
  Caption = 'SimpForm'
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 16
  object TitleBand: TQRBand
    Left = 0
    Top = 0
    Width = 1200
    Height = 57
    Align = alTop
    BandType = rbTitle
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ForceNewPage = False
    Frame.Width = 0
    ParentFont = False
    Ruler = qrrInchesHV
    object Image1: TImage
      Left = 12
      Top = 4
      Width = 69
      Height = 33
      Picture.Data = {<image000.bmp>}
      Stretch = True
    end
    object QRLabel1: TQRLabel
      Left = 100
      Top = 4
      width = 193
      height = 36
      Caption = 'QuickReport'
      AlignToBand = False
      Font.Color = 8404992
      Font.Height = -32
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object QRLabel2: TQRLabel
      Left = 300
      Top = 20
      width = 83
      height = 16
      Caption = 'for Delphi 2.0'
      AlignToBand = False
      Font.Color = 8404992
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object QRLabel3: TQRLabel
      Left = 564
      Top = 20
      width = 167
      height = 16
      Caption = 'Copyright (c) 1996 QSD AS'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object QRShape1: TQRShape
      Left = 8
      Top = 44
      width = 733
      Height = 5
      Brush.Color = clNavy
      Shape = qrsRectangle
    end
  end
  object DetailBand: TQRBand
    Left = 0
    Top = 77
    Width = 1200
    Height = 20
    Align = alTop
    BandType = rbDetail
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    LinkBand = QRBand2
    Ruler = qrrNone
    object QRDBText1: TQRDBText
      Left = 12
      Top = 0
      width = 221
      height = 16
      DataSource = CustomerData.CustomerSource
      DataField = 'Company'
    end
    object QRDBText3: TQRDBText
      Left = 432
      Top = 0
      width = 121
      height = 17
      DataSource = CustomerData.CustomerSource
      DataField = 'Contact'
    end
    object QRDBText4: TQRDBText
      Left = 560
      Top = 0
      width = 89
      height = 17
      DataSource = CustomerData.CustomerSource
      DataField = 'Phone'
    end
    object QRDBText5: TQRDBText
      Left = 652
      Top = 0
      width = 85
      height = 17
      DataSource = CustomerData.CustomerSource
      DataField = 'FAX'
    end
    object QRDBText2: TQRDBText
      Left = 240
      Top = 0
      width = 90
      height = 16
      AutoSize = True
      DataSource = CustomerData.CustomerSource
      DataField = 'Addr1'
    end
  end
  object PageFooterBand: TQRBand
    Left = 0
    Top = 97
    Width = 1200
    Height = 24
    Align = alTop
    BandType = rbPageFooter
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRSysData1: TQRSysData
      Left = 640
      Top = 4
      width = 89
      height = 17
      Alignment = taRightJustify
      AlignToBand = True
      AutoSize = False
      Data = qrsPageNumber
      Text = 'Page '
    end
  end
  object QRBand1: TQRBand
    Left = 0
    Top = 57
    Width = 1200
    Height = 20
    Align = alTop
    BandType = rbColumnHeader
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRLabel4: TQRLabel
      Left = 12
      Top = 0
      width = 60
      height = 16
      Caption = 'Company'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabel5: TQRLabel
      Left = 240
      Top = 0
      width = 50
      height = 16
      Caption = 'Address'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabel6: TQRLabel
      Left = 432
      Top = 0
      width = 48
      height = 16
      Caption = 'Contact'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabel7: TQRLabel
      Left = 560
      Top = 0
      width = 41
      height = 16
      Caption = 'Phone'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabel8: TQRLabel
      Left = 652
      Top = 0
      width = 24
      height = 16
      Caption = 'Fax'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object QRBand2: TQRBand
    Left = 0
    Top = 121
    Width = 1200
    Height = 12
    Align = alTop
    BandType = rbGroupFooter
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
  end
  object SimpRep: TQuickReport
    DataSource = CustomerData.CustomerSource
    ColumnMarginInches = 0
    ColumnMarginMM = 0
    Columns = 1
    DisplayPrintDialog = False
    LeftMarginInches = 0
    LeftMarginMM = 0
    Orientation = poPortrait
    ReportTitle = 'QuickReport Simple report demonstration'
    RestartData = True
    SQLCompatible = False
    TitleBeforeHeader = False
    Left = 4
    Top = 140
  end
  object QRGroup1: TQRGroup
    FooterBand = QRBand2
    Level = 0
    OnNeedData = QRGroup1NeedData
    Left = 40
    Top = 141
  end
end